home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / DBFTEST.DO < prev    next >
Text File  |  1991-08-25  |  399b  |  14 lines
  1. /*
  2.     create a menu of all the last names within a range
  3.     of records in the dbf file
  4.     NOTE - you must run the CRDEMO.DO file before running this program
  5. */
  6. d = new(Dbffile,"patient");
  7. setFilter(d,#(recno(d) >= 8L) & (recno(d) <= 15L));
  8. a = sort(asCollection(d,#trim(lname)));
  9. m = new(Menu,80,3,3,5,31,3,a," Last Name ");
  10. c = choice(m,1);
  11. remove(m);
  12. ? "your menu choice was ",c;
  13. close(d);
  14.